home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The X-Philes (2nd Revision)
/
The X-Philes Number 1 (1995).iso
/
xphiles
/
hp48hor1
/
tetris
< prev
next >
Wrap
Text File
|
1995-03-31
|
8KB
|
6 lines
HPHP48-A *δ░û@ XY w) D VL w) ù VASILIJ -àa#~A.Be#H.PDôd T g#(î1 P aç¡ï" -@ H.PDôd T ä REDSQ+1 ' t*à δ à ° t*à 0 à p ° \è± µ/ ä BLROWÖ/ c#+1 UPD -àa#H.@à 4De#H.0 4 g#í ä NXYT6 ä XYy6òì 3) █ä PTPLUS96² pPå 4EUtDù 6 ä PICH. █ ä DXYg« ä OBääAe#H.0 4 g#í c#+1à TETRIS -àa#H.p0UDeÄt4 ä INTRO~A0 ä INITTß3òù 30 ,*]0òù ~A0 ä MOVACTí02 162 #H.`°T 4DÖ #s ñ 16² 6² 7òù ~A.2: H.PpôdU$Ö(c) ú.òù H. U4UDeÄt4 8 9£± Ö/² Ö/ ä SCOREí0 ä NEWG?16 ä RESETFLGS96² p0UDeÄt4uDù 6 a T6 ä FLGSy6òì t*à ÿP 0@ à ° ░Æ c#+1à SCORE -àa#X ä GOVERÉ¢BX ,*D Your score: H. Eu ó¢BX æÑ1* c#+1D ROWOB +p à ÿÿÿ?mû-ÿÿÿ?: ` öD5 'dDù 6 ä OB,É ½ ó¢Rδ » L#m. pça#è)@ w) ,*~A02ì" ûÑæ w]ì¡ï" -@+*É¢² µ/òù Çφq, T6 ä DXYy6²D ~A. ä XYH.@0 ' ¥ï" -█½ É¢ ,*+1Pû" -P T6 ä DXYy6²D '¢² Ö/² Ö/ò #162/*Dü1¿ b5 c#+1à! ROTATEOB -àa#H.pPå 4EU ä DXYH. δ$ ä OBJH.0δ$ä 0*M3/4 ,*g«Ae#H.0δ$ä g#í ä OBJH.0δ$äd| T6 ä OBy6òì H.@DD 5ì"H.` öD5 'ï" -█ä UPDó¢BÆ +1Pû" -@e#H.0δ$ g#í Be#H. δ$ g#í Be#H.0@ g#í ä PASTE+1P'y"96² p t Dö$tDù 6r T6 ä VLy6²D 96² e U4UDeÄt4 Dù 6 ä FLGS░Æ c#+1à RANDOBJ -àa#H.`δ$Ä 4Eu, ,É îÑ É¢r Æx1c"T6 ä NOBJy6òì 1á 0*î ,*g«Ñ T6 ä NOBNy6òì H.@àô$ ä NOBNÆxAe#H.0àô$ g#í c#+1δ PV -àa#6äA N*P N*P +1`C @ B N*P 1 N*P +1█ä PICêèA N*P N*P +1█ä PTÉ¢òZ êèA N*P N*P +1à à à à `A êè1ì"H. àd¥ï" -@ N*P N*P +1█ä NOBêè± Ö/¢ 96² ` E ÅT5eDù 6Be#H. E g#K c#+1à PT 3) DD PPAR t*p 033333 w) P █ä X'¢r aæ ä Y+1
PIC +δ @ ÿÿÿÿ █ █ █ █ █ █ █ █ à?█ -█ à?█ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █░ δ[ D░ δÿ δû Dÿ δÿ bû úÿ bÿÿÿÿ P 4EUTDù 6 ä PICH. █ ä DXYg« ä OBääAe#H.0 4 g#í c#+1█ OBN 3) δ OBLIST t*à─ L2OBJt*à± ! pPppPpδóò~a± ' ` δ D δ à± ! δóò ~a± ' ` δ D δ p P p ° ü*Pà ó$D + ` 8(88(8?-? +p ÿ m ÿ à @ à + ` ?-? +p ÿ m ÿ +1à─ Z1OBJt*à± ' ` █ █ █ δ D δ à± ! pPpδóò ~a± ' ` █ █ █ δ D δ à± ! pPpδóò 3 ü*P %ó$D +p ? - ? φ h φ + ` 8(8?-? +p ? - ? φ h φ + ` 8(8?-? +1à─ TOBJt*à± ' ` █ █ █ δ D δ à± ! █ óóò ~a± ' ` δ D δ █ █ █ à± ! pPpδóòsPp° ü*@ ö$D +° à ÿ m ÿ +p 0 +° à ÿ m ÿ +p 0 +1à─ SOBJt*à± ` δóòóóò~a± ` δóòóóò~a± ` δóòóóò~a± ` δóòóóò3 +1DQ OBJ t*à± ' ` █ █ █ δ D δ à± ! █ óóò ~a± ' ` δ D δ █ █ █ à± ! pPpδóòsPp° , δ$$à± ' ` █ █ █ δ D δ @ NXY w) δ NV 3) D NPIC +δ @ ÿÿÿÿ █ █ █ █ █ █ █ █ à?█ -█ à?█ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █░ δ[ D░ δÿ δû Dÿ δÿ bû úÿ bÿÿÿÿ @àô$äD0 ! @àô$D@ +° ` ?-??-? +° ` ?-??-? +° ` ?-??-? +° ` ?-??-?+1` NOB +° ` ?-??-?* PàTtuôSDù 6 !á4òæ m 6B t*█ä YES -àa#'¢² 96² +1@ H. àôôù 6 ,*» c#+1° +1D !b¢BZ ,*° Play again?$8òæ m â_#96² ó PDôd TT`(c) ÿç P 5E UDù 6B H. █ ä YH. █ µ b c#+1à RSTMOV -àa#H.0 4 ä SWN*P b¢2x H. u ,* ä PHÉ¢ D b¢2x \èaC X a` í B H.0 4 ä PWH. 0u ä SHH.0δ u ä PH+1àï 302 ]0 ½ 6 c#+1° REDSQ +δ @ 0 █ █ @ @ █ @█
@█
δ
@█
àD `D > @_ @ä? ,( &( p P$> ü P%( φ H.8 p $/,* (* L (I P 5 P xU HUÉ HUª ü HUU░ ü W ?kA ¬ Q UA ì Q φ >░ Q ¢█ ü q ?âÿ t ░ H@~ δ █ÿ? D@A ÿÿ àÿ $██ üÿÿÿ 3 üÿÿÿ üÿÿÿ 033 &I $ üÿÿÿ %I $ üÿÿÿ █ÿÿÿÿ üÿÿÿ 3333 █ █ üÿÿÿ █ @ üÿÿÿ 03 █ @ üÿÿÿ 3 █ @ üÿÿÿ 3 ° █ @ üÿÿÿ 0 █ÿÿÿÿ üÿÿÿ 0 àÿÿÿÿÿÿÿÿÿÿÿÿ 0 > àÿÿÿ φ 'Y 1 »», üÿÿ à E (c)" ÿÿ > àÅ] 91" àÿ φ `ET ü Eô 9 , ¢ @ $E@ w) e 1y P H. █E+*w) f H. µ ¡ P Å äTTà± ° S |█ÿÿÿÿÿ░ φ ~àÿÿÿÿÿ░pü ~àÿÿÿÿÿ░δÿ ░δÿÿÿÿÿ░δÿÿÿÿÿÿÿÿÿ░δÿÿÿßÿÿÿÿÿ░δÿÿÿÿÿÿÿÿÿ░δÿÿ δÿÿÿÿÿ░δÿ àÿÿÿÿÿ░δ àÿÿÿÿÿ░p █ÿÿÿÿÿ░@ O t*à à ° D `à Å äTdà± ° S |█ÿÿÿÿÿ░ φ F@ @p Z ÿÿÿÿÿ_Dw [PÑ[ ùTP ü'YoÖU¿½UW ÿ Pѱ¿±ùV ÿ üo'Yµ¿½Ö] ü P µ¿±UVPφ ÿÿÿÿÿ_D @ @p █ÿÿÿÿÿ░` MOV -àa#H.P UD4 eC í ä INIMOVH.P ä ä SWN*P b¢2x δâ1 #H. u ,* ±k '¢ #m. █xæ x ä Yb¢2x T6 ä XYy6òì 6ä ä OH.0 4 ä XYH.P Å äTdE H. █ ä NPLANEää¡ 3) 8#6ä ä OH.0 4 í02 16 ½ H.P 5E ä RSTMOV96² ô P ä UDù 6 ä SWH.0δ u ä SW á-* ─q » Ae#H. █ g#í ä PHH. 0 D b¢Rδ T6 ä Yy6òì 96² 3 ` ä ôôdeDù 6bC ,ÉAe#H. g#í Be#H.0δ u g#í ä PLANE,ÉAe#H. 0 g#í Be#H. 0u g#í ä OPWH. 0uu T6 ä PWy6òì H. u ä PH ä ä SWN*P b¢2x 6ä ' êèAe#H.0 4 g#í ä PIC6äÑì 96² q 004E5@ +1█ MOVACT -àa#H.pPå 4EU4ì"H.█0 ' Åôô ¥ï"H.0P ETû" -█ä PASTEH. 0 T4'$öt5 ä GETOB~A. ä XYH.@0 ' ¥ï"H.0P ETû" -█ä GOVER9£± Ö/² Ö/ ä PVw) Ie#H. `Å g#í c#+1° MDXY -àa#H. δ$ G£Rδ » Ñ» 2£Rδ » Q ½ûáy T6 ä DXYy6òì 96² ~ `àTdDö$dDù 6r T6 ä VLy6²D 96² c `°T 4DeDù 6òx# -p, 3) % v 7 ä ROTATEOBÖ/r, 3) 5 v 7 ä DROPOBÖ/r, 3) 4 v 7 ä LEFTOBÖ/r, 3) 6 v 7 ä RIGHTOBÖ/r, 3) & v 7òù H. àdö T6 ä NVy6òì +1P'y" û1 P aç z# -█½ H.PpôdU$ 3 +1P'y"3)0 0 Ä¥± Ö/ ½ 96² P äD%öTDù 62ì"T6 ä MOVIEy6 â 3) v ú.òù H.PDôd T ä MOV[¡± Ö/ c#+1█ INSTR +0 2 ` ì Ü TII LÉÉ TII ôIÉ ü $ t ¬ $ $ ü φ'y'y H% (%¥ φ'y (u¥ H% φ'y'y àì @U @M @U àô ÿÿ █ ¥º@º: à = à; µ @ ¥ @º █ ÿÿ ÿÿ (c) (c) ªJª ½(c)Iª ªJ(c) º º ÿÿ P ä DEUDù 6 ä INIPICt*à à ° δâ ä RANDOBJH.PpTDö$ ä PASTE,*█ä NV'¢ +1PÖ ,*█ä PT'¢ +1PÖ H. e « H. `Åt φ ± e c#+1` INIPIC -àa#w) 09/* ─q P ó¢Rδ t*█ä X'¢r aæ ä Y+1p g«Ae#H.@ $ g#í ò% 6äA N*P 1 N*P +1@ N*P P N*P ? +1 º ì~aá T6 ä PICy6òì 6äA N*P X N*P +1█ä VASILIJêèaC t*à à ° H.P ä4E%¥ 96² \ PpôdU$Uࢠp ÖV òfW& GETOB -àa#H.@àô$De#H.0δ$ g#í ä NOBNT6 ä OBNy6òì H.0àô$De#H. δ$ g#í r █ T6 ä XYy6òì H.@DD ä RANDOBJ96² @`Ät4E@ N*P δ N*P +1 DXY w) δ DROPOB -àa#H.pPå 4EU4ì"H.█0 ' Åôô ¥ï" -0 #w) Ie#H. `Å g#K ò #H. █ ä VLg« ä CHKP1 è k#w) @e#H. `Å g#K ² Ö/ ä PASTE96² 8 004E5@ H.`@UD% 4 ä INTROH.PDôd T' I `0 '$öteDù 6¢=*½ûáy H.0 4ô» w) ) 9/* ─ â g« L#m. ôæ B 6òæ Am. Ä H.P ötö$4ì"aç¡ï" -█ä PICm. ä BLROWêèAe#H.0 4 g#í ä PVH.0 4t █ H.0 4t m. t g«á êèq H.P Ä$öt¥ T6 ä PICy6òì 3) P█ä PTPLUSH. eµ Ö/â_#96² c █0 ' Åôô Dù 62 #H. █ ä VLg« ä CHKP~A.¢ï" - ,* û± µ/òù ~A. ä VLêÇq, ú.òù *3A+* ÇQ T6 ä VLy6²D '¢² µ/ ,*Ö/² Ö/ò #16 c#+1à CHKP1 -àa#H.0@ u H.0 4 â H. δ$DN H.0 4äà H. δ$dE aç c#+1D CHKP -àa#T6 ä NXYy6òì H.0à ä DXYg« ä PIC)ü ä OBß3BN 7òù £BÆ '¢² µ/òù T6 ä NPICy6òì H.0 4ô» H. δ$dE H.@à 4 v +1P'y"96² 0 T4'$öt5 Dù 6 ä XYH.0@ u è ä OB,ÉÑ» φû±k É¢ D ó¢Rδ m»Q )üq 1òæ ym. ä CHKROW £ 8#96² Ç P Ä$ötUà± ' 0